home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / ansi.swg / 0013_Displaying THEDRAW Images.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  746b  |  19 lines
  1. {▐ Oh, about the thedraw screens, here's
  2. ▐ a bit of code in which you can load up a File saved as O)bject, P)ascal.
  3. ▐ Oh this is saved as Uncrunched not Crunched.
  4. ▐
  5. ▐ {$L,TESTFile.OBJ}  {This is the File you saved in thedraw as a Object}
  6.                     {It is linked directly into the code at Compile time}
  7.  
  8.  Procedure ImageData; external;   {The imagedata Procedure you can}
  9.                                   {define the name of this Procedure}
  10.                                   {when you save the File in TheDraw}
  11.  begin
  12.      Move (Pointer(@ImageData)^,ptr($B800,0)^,5000);
  13.      Readln;
  14.  end.
  15.  
  16. {By using the Move instruction, the placement of the image
  17. is restricted to full screens or essentially 80 Character lines.
  18. }
  19.